<script>on mouseUpset hilite of me to not hilite of meif the visible of bkgnd field "Archive Info" is false thenlock screenshow bkgnd field "Archive Info"unlock screen with dissolve fastif bg field "Archive Info" is emptythen click at loc of bg field "Archive Info" with shiftkeyexit mouseUpelse hide bkgnd field "Archive Info"exit mouseUpend mouseUp</script>
</part>
<part>
<id>10</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>4</left>
<top>33</top>
<right>42</right>
<bottom>59</bottom>
</rect>
<style>opaque</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>21700</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>home</name>
<script>on mouseUpanswer "Leave Academic Datamanager?" with "No" or "Yes"if it is "Yes" thenset cursor to busyplay "harpsichord" "ce3 cc cc ab3w bbe3 bb bb gw"lock screenset hilite of bkgnd button "notes" to falseset hilite of bkgnd button "archive" to falsehide bkgnd field "Archive Info"go "Home"wait until the sound is doneunlock screen with visual effect dissolve slowend ifend mouseUp</script>
</part>
<part>
<id>14</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>105</left>
<top>203</top>
<right>377</right>
<bottom>237</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Keywords</name>
<script></script>
</part>
<part>
<id>17</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>87</left>
<top>243</top>
<right>225</right>
<bottom>293</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>italic</textStyle>
<textHeight>16</textHeight>
<name>Journals</name>
<script></script>
</part>
<part>
<id>12</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>12</left>
<top>244</top>
<right>81</right>
<bottom>289</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>1015</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>journal</name>
<script>on mouseDownput "American Historical Review" into menuput return & "Diplomatic History" after menuput return & "Journal of American History" after menuput return & "Journal of Modern History" after menuput return & "Radical History Review" after menuput return & "Reviews in American History" after menuput return & "Other" after menuget HPopupMenu(menu,0,top of me - 15,left of me )if it <> zero thenput item 1 of it into theLineput item 2 of it into theItemput item theItem of line theLine of menu into menuItemput item 1 of line theLine of menu into menuNameif menuName = "Other" thenput empty into field "Journals"click at loc of field "Journals"exit mouseDownend ifif menuItem <> menuNamethen put menuName into field "Journals"else put empty into field "Journals"put menuItem into field "Journals"elseend ifend mouseDown</script>
</part>
<part>
<id>32</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>448</left>
<top>33</top>
<right>499</right>
<bottom>62</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>index</name>
<script>on mouseUpvisual effect wipe left slowgo card "index"end mouseUp</script>
</part>
<part>
<id>1</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>226</left>
<top>290</top>
<right>284</right>
<bottom>338</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>1005</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>NOTES</name>
<script>on mouseUpif length of field "notes" > 25000 thenbeep 2answer "Warning! You Are Approaching The Size Limit of this Field. Start Another Card Soon!"end ifset hilite of me to not hilite of meglobal noteSizeif notesize = "Big" thenlock screenput "Small" into notesize --size of small fieldset the rect of bg field "notes" to 230,240,502,290 --2nd # is heightunlock screenexit mouseUpend ifif notesize = "Small" thenlock screenput "Big" into noteSizeset the rect of bg field "notes" to 20,60,502,290--1st #is widthunlock screenif bg field "notes" is emptythen click at loc of bg field "notes" with shiftkeyexit mouseUpend ifend mouseUp</script>
<script>on mouseUpset cursor to busypush this cardglobal SearchFor, ReportNumbers, OutPut, OutFile, StackNameglobal ReportFields, Search, Reportlock screenif there is a card field "authortitle" then ¬hide cd field "authortitle"if there is a card field "keywordstitle" then ¬hide cd field "keywordstitle"hide bg button "Find Next"hide bg button "Cancel Find"put "False" into Searchput "True" into Reportunlock screenput empty into ReportNumbers------------------------------------- Set up searchput return& "Select a field to search." into bkgnd field Dialogshow bkgnd field Dialogput "Author,Title,Date,Publisher,Pages,Editor,"&¬"Journals,Keywords,Archive Info,Notes,Search All Fields,"&¬"Include All Cards" into ListDoList "Select","Cancel",list,ONEput item 2 of the result into SearchFieldhide bkgnd field Dialogif there is a card field "authortitle" then show cd field "authortitle"if there is a card field "keywordstitle" then show cd field "keywordstitle"if SearchField is empty then exit mouseUpif SearchField <> "Include All Cards" thenask "Enter a string to search for." with SearchForput it into SearchForif SearchFor is empty then exit mouseUpend if------------------------------------- Set up for outputanswer "Send the report to..." with "Stack" or ¬"Printer" or "Text File"put it into OutPutif OutPut = "Stack" thenanswer "Have you created a stack for the results?" with¬"Yes" or "Cancel"if it = "Cancel" then exit mouseUpput FileName("STAK") into OutFileif OutFile is empty then exit mouseUpend ifIf OutPut = "Text File" thenanswer "Include NOTES field?" with "No" or "Yes"put it into keyanswer "Number output?" with "Yes" or "No"put it into outputKeyput NewFileName("Save report as?","") into OutFileif OutFile is empty then exit mouseUpend if------------------------------------- Do searchgo this card -- redraw cardset lockMessages to trueif SearchField = "Search All Fields" thenrepeat with i = 1 to the number of cardsset cursor to busyrepeat with j = 1 to 12if (bkgnd field j of card i) contains SearchFor thenput i & "," after ReportNumbersexit repeatend ifend repeatend repeatend ifif SearchField = "Include All Cards" thenrepeat with i = 2 to the number of cardsset cursor to busyput i & "," after ReportNumbersend repeatend ifif SearchField <> "Search All Fields" and¬SearchField <> "Include All Cards" thenrepeat with i = 1 to the number of cardsset cursor to busyif (bkgnd field SearchField of card i) contains SearchFor thenput i & "," after ReportNumbersend ifend repeatend if------------------------------------- Output resultsif ReportNumbers is empty thenput return&"The string"&"e&SearchFor"e&&"was not found."¬into bkgnd field "dialog"set cursor to arrowshow bkgnd field "dialog"play harpsichordrepeat until the mouseclickend repeathide bkgnd field "dialog"put "False" into Reportexit mouseUpend if-------------------------- To printerif OutPut = "Printer" thenopen printing with dialogrepeat with i = 1 to the number of items in ReportNumbersput item i of ReportNumbers into jprint card jend repeatclose printingput "False" into Reportexit mouseUpend if-------------------------- To a stackif OutPut = "Stack" thenput the long name of this stack into StackNamelock screenrepeat with i = 1 to the number of items in ReportNumbersset cursor to busyput item i of ReportNumbers into jgo card j of StackNamedoMenu "Copy Card"go stack OutFiledoMenu "Last"doMenu "Paste Card"end repeatplay harpsichordunlock screen with visual effect iris openput "False" into Reportexit mouseUpend if-------------------------- To a text fileif OutPut = "Text File" thenlock screenpush cardopen file OutFileput empty into ReportFieldsrepeat with i = 1 to the number of items in ReportNumbersset cursor to busyput item i of ReportNumbers into jgo card j-- strip Returns from all fieldsrepeat with k = 1 to 12if field k contains return and it <> field 10 thenput empty into temprepeat with l = 1 to the number of lines in field kput line l of field k after tempend repeatput temp into field kend ifrepeat until the last char of field k is not spaceif last char of field k is space then delete last char of field kend repeatend repeat-- concatonate fields to create referenceif outputKey is "Yes" thenput (i) & "." && "" after ReportFields -- number outputend ifif field 1 <> empty thenput field 1 & "." && "" after ReportFieldsend ifif field 6 <> empty then ---format for author of work in book by editorif field 2 <> empty thenput field 2 & "," && "" after ReportFieldsend ifput "ed." && "" & field 6 ¬& "," && "" & field 5 & "." && "" & field 4 & "," &&¬field 3 & "." after ReportFieldsend ifif field 6 is empty then --format for nonedited workif field 2 <> empty then --there is a titleif last char of last word of field 2 is not "then put field 2 & "." && "" after ReportFieldselseif last char of last word of field 2 is "then put field 2 && "" after ReportFieldsend ifend ifif field 4 <> empty then --there is publisher/-book formatput "" & field 4 & "," &&field 3 & "." after ReportFieldselseif field 4 is empty and ¬field 9 <> empty then --no publisher/-journal formatput "" && field 9 & "" && "(" & field 3 & ")" ¬after ReportFieldsif field 5 <> empty thenput ":" & "" &&field 5 & "." after ReportFieldsend ifend ifif field 9 is empty and field 4 is empty thenif field 3 <> empty thenput field 3 & "." && "" after ReportFieldsend ifend ifend ifif field 12 <> empty then ---arhive formatingput "" &&field 12 & "." after ReportFieldsend ifend ifif key is "Yes" and field 10 <> empty thenput return after ReportFieldsput return after ReportFieldsput field 10 after ReportFieldsend ifput return after ReportFieldsput return after ReportFieldsif the length of ReportFields > 16000 thenwrite ReportFields to file OutFileput empty into ReportFieldsend ifend repeatwrite ReportFields to file OutFileclose file OutFilepop cardplay harpsichordunlock screen with visual effect iris openput "False" into Reportend ifif there is a card field "authortitle" then show cd field "authortitle"if there is a card field "keywordstitle" then show cd field "keywordstitle"pop cardplay "boing"flashend mouseUp</script>
</part>
<part>
<id>21</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>460</left>
<top>325</top>
<right>502</right>
<bottom>340</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>bold</textStyle>
<textHeight>16</textHeight>
<name>Card Number</name>
<script></script>
</part>
<part>
<id>20</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>317</left>
<top>290</top>
<right>506</right>
<bottom>339</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Cancel Find</name>
<script>on mouseUpglobal SearchLock Screenhide bkgnd button "Find Next"hide bkgnd button "Cancel Find"put "False" into Searchif the visible of bkgnd field "Archive Info" is truethen set hilite of bkgnd button "Archive" to trueUnlock Screenend mouseUp</script>
</part>
<part>
<id>18</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>150</left>
<top>289</top>
<right>216</right>
<bottom>342</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>28654</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>FIND</name>
<script>on mouseUpset cursor to watchvisual effect zoom opengo this cardglobal SearchFor, Search,SearchFieldlock screenif there is a card field "authortitle" then ¬hide cd field "authortitle"if there is a card field "keywordstitle" then ¬hide cd field "keywordstitle"hide bg button "Find Next"hide bg button "Cancel Find"put "False" into Searchunlock screenput return&"Select a Field to search:" into bkgnd field Dialogshow bkgnd field Dialogput "Author,Title,Date,Publisher,Pages,Editor,Journals,"&¬"Keywords,Notes,Search All Fields,Archive Info" into ListDoList "Select","Cancel",list,ONEput item 2 of the result into SearchFieldhide bkgnd field Dialogif there is a card field "authortitle" then show cd field "authortitle"if there is a card field "keywordstitle" then show cd field "keywordstitle"if SearchField is empty then exit mouseUpask "Enter a String to search for:" with SearchForput it into SearchForif SearchFor is empty then exit mouseUpput "True" into Searchlock screenset cursor to busygo next cardif SearchField = "Search All Fields" thenfind string SearchFor -- search for exact stringif the result is not "not found" thenif the visible of the foundField is falsethen show the foundFieldend ifend ifif SearchField <> "Search All Fields" thenfind string SearchFor in field SearchField -- search for exact stringif the result is not "not found" thenif the visible of the foundField is falsethen show the foundFieldend ifend ifif the result is "not found" thenput "False" into Searchhide bkgnd button "Find Next"hide bkgnd button "Cancel Find"go prev cardput return&"The String"&"e&SearchFor"e&&"was not found."¬into bkgnd field dialogset cursor to arrowshow bkgnd field dialogplay harpsichordunlock screenrepeat until the mouseclickend repeathide bkgnd field dialogif there is a card field "authortitle" then show cd field "authortitle"if there is a card field "keywordstitle" then show cd field "keywordstitle"end ifend mouseUp</script>
</part>
<part>
<id>16</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>85</left>
<top>290</top>
<right>143</right>
<bottom>341</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>SORT</name>
<script>on mouseUpset cursor to watchlock screenif there is a card field "authortitle" then ¬hide cd field "authortitle"if there is a card field "keywordstitle" then ¬hide cd field "keywordstitle"put return&"Select a field to sort by:" into bkgnd field Dialogshow bkgnd field Dialogunlock screen with visual effect zoom openput "Author,Title,Date,Publisher,Pages,Editor,Journals," into Listput "Keywords,Archive Info,Notes" after ListDoList "Select","Cancel",list,ONEput item 2 of the result into SearchFieldset cursor to busyhide bkgnd field Dialogif there is a card field "authortitle" then show cd field "authortitle"if there is a card field "keywordstitle" then show cd field "keywordstitle"if SearchField is empty then exit mouseUpgo this card --redraw the cardlock screensort by field SearchFieldgo card 2unlock screenflashend mouseUp</script>
</part>
<part>
<id>11</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>12</left>
<top>290</top>
<right>75</right>
<bottom>339</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>10181</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>NEW CARD</name>
<script>on mouseUplock screenset hilite of bkgnd button "notes" to falseset hilite of bkgnd button "archive" to falsehide bkgnd field "Archive Info"play "PaperTurn"doMenu "new card"unlock screen with visual effect stretch from topclick at the loc of bkgnd field "Author"end mouseUp</script>
</part>
<part>
<id>19</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>12</left>
<top>289</top>
<right>317</right>
<bottom>339</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Find Next</name>
<script>on mouseUpglobal SearchFor, SearchField, Searchif Search = "False" thenhide bkgnd button "Find Next"hide bkgnd button "Cancel Search"exit mouseUpend iflock screengo next cardif SearchFor is empty then exit mouseUpif SearchField = "Search All Fields" thenfind string SearchForif it is in bkgnd field "Archive Info" then set hilite of ¬bkgnd button "Archive" to trueend ifif SearchField <> "Search All Fields" thenfind string SearchFor in field SearchFieldif it is in bkgnd field "Archive Info" then set hilite of ¬bkgnd button "Archive" to trueend ifif the result is "not found" then go previous cardunlock screen with visual effect shrink to top slowend mouseUp</script>
</part>
<part>
<id>24</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>329</left>
<top>116</top>
<right>489</right>
<bottom>206</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Archive Info</name>
<script>on enterInFieldhide mesend "hideShowPopUp" to bkgnd button id 23end enterInField</script>
</part>
<part>
<id>30</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>414</left>
<top>269</top>
<right>497</right>
<bottom>292</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>finished</name>
<script>on mouseUpvisual effect dissolve slowhide bkgnd button "finished"hide bkgnd field "help title"hide bkgnd field helpend mouseUp</script>
</part>
<part>
<id>38</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>92</left>
<top>31</top>
<right>404</right>
<bottom>88</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>14</textSize>
<textStyle>bold</textStyle>
<textHeight>18</textHeight>
<name>Dialog</name>
<script></script>
</part>
<name>Academic DataManager</name>
<script>on openCardglobal new, Search, prevRoutineput empty into newset lockText of bkgnd field "Card Number" to falseput the number of this card -1 into bkgnd field "Card Number"set lockText of bkgnd field "Card Number" to trueif Search = "True" thenlock screenshow bkgnd button "Find Next"show bkgnd button "Cancel Find"unlock screen with visual effect iris openend ifend openCardon closeCardglobal noteSizelock screenput "Small" into noteSizeset the rect of bg field "Notes" to 230,240,502,290set hilite of bkgnd button "Notes" to falseif length of field "notes" > 25000 thenbeep 2answer "Warning! You Are Approaching The Size Limit of the Note Field on this Card. Start Another Card Soon!"end ifunlock screenend closeCard</script>
